home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / amos / sillysource5.lha / TITLE.AMOS / TITLE.amosSourceCode < prev   
AMOS Source Code  |  1980-01-05  |  3KB  |  105 lines
  1. Screen Open 1,320,200,16,Lowres : Curs Off : Hide On : Flash Off : RemBreak Off 
  2. Dim NAME$(40),LE(40),POS(40) : Sam Bank 12
  3. Unpack 5 To 1 : Wait Vbl 
  4. F$="HD" : If Exist(F$)=True Then HD=1 Else HD=0
  5. If Command Line$="run" Then Goto HAR
  6. Wait 100 : Bob 1,155,50,1 : Gosub ANI : Sam Play 6 : Wait 80 : Anim Off : Bob Off : Wait 50
  7. Bob 1,155,50,1 : Gosub ANI : Sam Play 7 : Wait 100 : Anim Off : Bob Off : Wait 50
  8. Bob 1,155,50,1 : Gosub ANI : Sam Play 8 : Wait 100 : Anim Off : Bob Off : Wait 50
  9.  
  10. HAR:
  11.  
  12. Reserve Zone 5000
  13. Set Zone 1,14,140 To 110,156 : Set Zone 2,220,139 To 310,156
  14. Set Zone 3,44,160 To 286,174 : Set Zone 4,72,177 To 258,190
  15. Set Zone 5,146,120 To 179,129
  16.  
  17. CHO:
  18.  
  19. Wait 20 : Show On : Repeat 
  20. CH=Mouse Zone
  21. Until Mouse Key=1 and CH<>0
  22.  
  23. If CH=1 Then Goto GO_TROLL
  24. If CH=2 Then Goto BANGMAN
  25. If CH=3 Then Goto CHOO_CHOO_SHOE_SHOOT
  26. If CH=4 Then Goto CHASE_THE_TROLL
  27.  
  28. If CH=5 Then Hide On : Wait 10 : Fade 3 : Wait 30 : Default : End 
  29.  
  30. GO_TROLL:
  31.  
  32. D$=Dir$
  33. If D$="Disk1:" or HD=1
  34. Gosub SP1 : Fade 3 : Wait 40 : Erase All 
  35. Run "go_troll.prg"
  36. End If 
  37.  
  38. If D$<>"Disk1:"
  39. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 10 : Wait 100
  40. Anim Off : Bob Off : Wait 20 : Dir$="Disk1:" : Goto CHO
  41. End If 
  42.  
  43. BANGMAN:
  44.  
  45. D$=Dir$
  46. If D$="Disk2:" or HD=1
  47. Gosub SP2 : Fade 3 : Wait 40 : Erase All 
  48. Run "bangman.prg"
  49. End If 
  50.  
  51. If D$<>"Disk2:"
  52. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 11 : Wait 100
  53. Anim Off : Bob Off : Wait 20 : Dir$="Disk2:" : Goto CHO
  54. End If 
  55.  
  56. CHOO_CHOO_SHOE_SHOOT:
  57.  
  58. D$=Dir$
  59. If D$="Disk3:" or HD=1
  60. Gosub SP3 : Fade 3 : Wait 40 : Erase All 
  61. Run "choochoo.prg"
  62. End If 
  63.  
  64. If D$<>"Disk3:"
  65. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 12 : Wait 100
  66. Anim Off : Bob Off : Wait 20 : Dir$="Disk3:" : Goto CHO
  67. End If 
  68.  
  69.  
  70. CHASE_THE_TROLL:
  71.  
  72. D$=Dir$
  73. If D$="Disk3:" or HD=1
  74. Gosub SP4 : Fade 3 : Wait 40 : Erase All 
  75. Run "chase.prg"
  76. End If 
  77.  
  78. If D$<>"Disk3:"
  79. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 12 : Wait 100
  80. Anim Off : Bob Off : Wait 20 : Dir$="Disk3:" : Goto CHO
  81. End If 
  82.  
  83. SP1:
  84.  
  85. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 5 : Wait 80 : Anim Off : Bob Off : Wait 30
  86. Bob 1,155,50,1 : Gosub ANI : Sam Play 1 : Wait 80 : Anim Off : Bob Off : Wait 50 : Return 
  87.  
  88. SP2:
  89.  
  90. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 9 : Wait 80 : Anim Off : Bob Off : Wait 30
  91. Bob 1,155,50,1 : Gosub ANI : Sam Play 2 : Wait 80 : Anim Off : Bob Off : Wait 50 : Return 
  92.  
  93. SP3:
  94.  
  95. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 3 : Wait 80 : Anim Off : Bob Off : Wait 60
  96. Bob 1,155,50,5 : Sam Play 13 : Wait 80 : Anim Off : Bob Off : Wait 50 : Return 
  97.  
  98. SP4:
  99.  
  100. Hide On : Bob 1,155,50,1 : Gosub ANI : Sam Play 9 : Wait 80 : Anim Off : Bob Off : Wait 30
  101. Bob 1,155,50,1 : Gosub ANI : Sam Play 4 : Wait 80 : Anim Off : Bob Off : Wait 50 : Return 
  102.  
  103. ANI:
  104. M$="Anim 0,(1,5)(2,5)(3,5)(4,5)"
  105. Channel 1 To Bob 1 : Amal 1,M$ : Amal On 1 : Return